/***************************************************************************/
/* Procedimiento:  Capt_CartaNoAdeudoInsertar
/* Descripcion:   Insertar una fila en la tabla ediv2.Capt_CartaNoAdeudo
/* Parametros:    ?InfoParametros
/*                pTransaccion. Numero identificador de la Transaccion
/*                pMensaje. Mensaje de comfirmacion o excepcion
/* Comentarios:         
/****************************************************************************/

PROCEDURE  Capt_CartaNoAdeudoInsertar(pnidDocumento NUMBER, pnidViaje NUMBER, 
						pnidBuque NUMBER, pnombreBuque VARCHAR2, pmuelle VARCHAR2, 
						pETA VARCHAR2, pETF VARCHAR2, pnaviera VARCHAR2, 
						pnota VARCHAR2, pvigencia VARCHAR2, pfecha_Autorizacion VARCHAR2, 
						, pTransaccion OUT NUMBER, pMensaje OUT VARCHAR2)
AS
v_nidUsuario NUMBER(10);
v_Transaccion NUMBER(1);
BEGIN
  INSERT INTO ediv2.Capt_CartaNoAdeudo(nid, nidDocumento, nidViaje, 
						nidBuque, nombreBuque, muelle, 
						ETA, ETF, naviera, 
						nota, vigencia, fecha_Autorizacion, 
						)
  VALUES               (seq_Capt_CartaNoAdeudo.nextval, pnidDocumento, pnidViaje, 
						pnidBuque, pnombreBuque, pmuelle, 
						to_date(pETA,'DD/MM/YYYY HH24:MI:SS'), to_date(pETF,'DD/MM/YYYY HH24:MI:SS'), pnaviera, 
						pnota, to_date(pvigencia,'DD/MM/YYYY HH24:MI:SS'), to_date(pfecha_Autorizacion,'DD/MM/YYYY HH24:MI:SS'), 
						);
  
  SELECT us.nid
  INTO   v_nidUsuario
  FROM   usuarios us ,documento doc
  WHERE  doc.nidUsuario= us.nid
  AND    doc.nid=pniddocumento;
    
  -- se agrega la incidencia de auto asignacion con la clave 5
  EDIV2GENERALES.insertaIncidencia(pnidDocumento, 5 ,v_nidUsuario, 
                                   'AUTOASIGNACION',v_Transaccion);
  COMMIT;
  pTransaccion := 1;
  pMensaje := 'Terminado OK';
  dbms_output.put_line('Terminado OK');

EXCEPTION
  WHEN OTHERS THEN
    pTransaccion := 0;
    pMensaje := 'Error en  Capt_CartaNoAdeudo_Insertar:' || SQLCODE || ' Mensaje: ' || sqlerrm;
    dbms_output.put_line('Error en  Capt_CartaNoAdeudo_Insertar:' || SQLCODE || ' Mensaje: ' || sqlerrm);
END;
